home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Examples / DemoText / UDemoText.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.2 KB  |  57 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n-]}
  2.  
  3. { UDemoText.p }
  4. { Copyright © 1985 - 1990 by Apple Computer, Inc. All rights reserved. }
  5.  
  6. {
  7.     This sample application demonstrates the breadth of alternatives
  8.     available when using the MacApp building-block "UTEView" for text-editing.
  9. }
  10.  
  11. UNIT UDemoText;
  12.  
  13.     INTERFACE
  14.  
  15.         USES
  16.             { • MacApp }
  17.             UMacApp,
  18.  
  19.             { • Building Blocks }
  20.             UPrinting, UTEView,
  21.  
  22.             { • Required for this unit's interface }
  23.             UTEDocument,
  24.  
  25.             { • Implementation use }
  26.             ToolUtils, Fonts, Resources, Script, Picker;
  27.  
  28.         CONST
  29.  
  30.             kSignature            = 'SS04';                { application signature }
  31.             kFileType            = kTextFileType;        { file-type code for saved disk files --
  32.                                                          uses standard text files }
  33.  
  34.         TYPE
  35.  
  36.             TDemoTextApplication = OBJECT (TApplication)
  37.  
  38.                 PROCEDURE TDemoTextApplication.IDemoTextApplication;
  39.                 { Initialize the Application }
  40.  
  41.                 FUNCTION TDemoTextApplication.DoMakeDocument(itsCmdNumber: CmdNumber): TDocument;
  42.                     OVERRIDE;
  43.                 { Launches a TTextDocument }
  44.  
  45.                 {$IFC qDebug}
  46.                 PROCEDURE TDemoTextApplication.IdentifySoftware; OVERRIDE;
  47.                 { Write out software versions to the debug window }
  48.                 {$ENDC}
  49.  
  50.                 END;
  51.  
  52.     IMPLEMENTATION
  53.  
  54.         {$I UDemoText.inc1.p}
  55.  
  56. END.
  57.